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QUE E PROGRAMACAO 



ESTRUTURADA? 



OS FLUXOGRAMAS 



COMO ESTRUTURAR 



PROGRAMAS EM BASIC 



A estrutura^io de um programa ^ uma 
t^cnica que facilita a compreensao de 
seu fuficionamento e permite tomar 
mats eficiente e simples sua opera^§o. 
Apcenda a utUiz^-la em BASIC. 



O interpretador BASIC padrao, dis- 
ponivet na maioria dos micros, e simples 
de usar, mas possui poucas estruturas de 
programa^ao, o que dificuUa a elabo- 
racao de programas estruturados. 

As estruturas sao *'blcx:os de constru- 
?ao'* da iogica de um programa, e sao 
utilizadas para proporcionar-lhe uma 
forma coerente e de facil compreensao. 
No BASIC padrao, as principals estru- 
turas de programacao Iogica sao repre- 
sentadas petas declarapoes IF.. .THEN, 
FOR.. .NEXT, GOTO e GOSUB. Ja vi- 
mos como empregar individualmeme a 
maioria delas; exammaremos agora co- 
mo coloca-las juntas de uma maneira le- 
givel e ordenada. 

Em programas curtos, a estrutura^So 
nao d uma questao muito import ante. 
O problema aparece qiiando se preten- 
de elaborar um programa longo e com- 
plexo, do ponto de vista logico (desvios). 
Nesse caso, se voce escrever uma parte 
do programa e depois acrescentar mais 
e mais coisas a ele, provavelmente aca- 
bara se perdendo. 

Para evitar que isso acontcca, habi- 
tuc-se a projetar detalhadamente seu 



programa, antes de come^ar a digita-lo, 
Comece por escrever o que pretende que 
o computador faga, de um modo bem 
geral. Por exemplo; 

Sistema dc indexaqao 

O programa tern por objetivo proces- 
sar em memoria registros que poderao 
ser criados, atualizados, apagados, clas- 
sificados e listados. Os registros serao 
acessiveis por meio da utiliza^ao de uma 



3. S^ric die mftduloii 
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paiavra-chave. Todo o conjunto de re- 
gistros poderd ser armazenado e carre- 

gado em um arquivo. 

Estc primeiro passo k conhecido co- 
mo especificat^ao do sistema. O passo se- 
guinte consistir^ em dividir as especifi- 
ca^oes gerais, adma, em etapas 16gicas 
ou mdduJos . Estes,por sua vez, tambem te - 
rao suas funfoesespecificadas de manei- 
ra geraJ. As operafoes envolvidas em ca- 
da modulo provavelmente serao muito 
complicadas; assim, divida-as em se^des 
sucessivamente menores, ate obter m6- 
dulos tao pequenos que possam ser tra- 
tados de forma simples, A figura 1 mos- 
tra como isso pode ser feito para o nos- 
so sistema de indexagao. 

Cada uma das se?des (ou mddulos) 
menores nao devera ter, em extensao, 
mais do que uma pagina de programa, 
ou scja, cerca de 60 linhas. O ideal, po- 
rem, sera !hnitd-tas k metade des- 
te tamanho. Eventualmente, 
elas terminarao constituindo 
sub-rotinas do seu pro- 
grama 



computador reside exatamente em sua 
habilidade de fazer escolhas. A familiar 
declara^ao IF. ..THEN t a estrutura 
mais freqiientemente utilizada para isso, 
na linguagem BASIC. Vamos agora exa- 
minar sua representa^ao e a de outros 
tipos de estrutura em um fluxograma. 



Esse metodo de 
subdividir um pro- 
blema e conhecido 
como modelo de 
cima para baixo 
(top-down). Come- 
?a-se do alto (ou 
seja, da descrii;ao 
geral do programa) e avan- 
(ja-se ate embaixo (isto e, o 
nivel mais baixo de, modu- 
les). Aii aqui, emretanto, o 
programador ainda nao de- 
cidiu em que ordem os mo- 
dulos serao executados. 
Esta seri a prbxima etapa. 



DIAGRAMAS DE BLOCOS 



A ordem (ou 16gica) de cxecugSo dos 
mddulos de um programa pode ser es- 
pecificada por meio dos diagramas de 
blocos ou fluxogramas. O uso destes 
permile que se ordene o programa de 
uma maneira bem estruturada e clara. 
Para isto, basta seguir um conjunto sim- 
ples de regras, 

A figura 2 mostra como especificar 
um modulo. O programa acompanha as 
linhas na dire<;aD das flechas e os retan< 
gulos descrevem o que acontece em ca- 
da estagio, Se quiser executar uma s^rie 
de modules em seqiiencia, acrescente 
mais retangulos na ordem correta, en- 
tre inicio e o fim (veja a figura 3). 

Um fluxograma como este e ideal pa- 
I ra um programa no qual nenhuma de- 
Icisao e tomada. No entanto, o poder do 




ELSE 



muito importante para a programa^ao 
estruturada, auxiiia bastante a testar e 
a eliminar as falhas. 

Nem todas as versoes em BASIC, po- 
rem, possuem a particula ELSE — ela 
nao estd disponivel, por exemplo, nos 
computadores Spectrum, ZX-81, Apple 
ou TK-2000. Nesses casos, para evitar 
que a estrutura passe a ter mais de uma 
saida, o ELSE pode ser simuiado 
utitizando-se o GOTO: 

100 ... 

110 IF conditio THEN GOTO 140 

120 declarac^o 2 

130 GOTO 150 ..^^ 

140 declaracio I ^KBK 

150 ... 

E claro que os numeros das linhas 
nao precisam ser iguais aos do exemplo. 
Alem disso, pode-se incluir mais de uma 
declaragao nas particulas THEN e EL- 
SE. Veja, a seguir , uma se?ao de progra- 
ma para classificar dols numeros den- 
tro de determinada ordem. Ela consti- 
tui a base para uma rotina de classifica- 
^So alfabetica que sera dada adiante. No 
case espeqifico, a particula ELSE pos- 
sui quatro declara^oes: 

100 IF priaeiro<"segundo THEN 

GOTO 160 
110 LET temporar lo-priaeiro 
120 LET prineiro-aegundo 
130 LET segundo-temporario 
140 LET ordemS-'errado" 



IF. ..THEN., .ELSE 



Embora os diversos computadores 
utilizem de maneira difcrente a declara- 
^ao IF., .THEN. ..ELSE, ela e sempre a 
base da tomada de decisoes dentro de 
um programa. Representada no flu- 
xograma por um losango (veja figu- 
ra 4), esta declara<;ao e escrita em 
BASIC da seguinie maneira: / t fALSA 

100 If conditio THEN 
declaracSo 1 ELSE 
declaracac? 2. 

Ou seja: se a condi^ao for 
verdadeira, sera executada a 
declaragao 1; caso contrario, 
a declaragao 2. 

Note que, no fluxograma, 
so h^ um ponto de saida para 
a estrutura IF.. .THEN. ..EL- 
SE, De fato, cada secao de c6- 
digo deve ter apenas uma en- 
crada e uma saida. Esta regra. 
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150 GOTO 170 

160 LET ordeB5='certo" 

170 ... 

Esta secao tamb^m pode ser escrita 
utilizando-se o ELSE, mas ele devera es- 
tar toialmenie contido em apenas uma 
linha. As declara?6es multiplas serao 
permitidas desde que estejam separadas 
por dois pontos; 

100 IF prime ira>BegLindo THEN 
temporano^pr itneiro 
priioeiro='aegundo: aegundo* 
temporar io:ordeiii3 = "errado' 
ELSE ordea5*'certo" 

Nao i facil ler ou entender programas 
que utilizam declaragoes longas como 
esta — assim, sempre que possivel, deve- 
se evita-las. 

Finalmente, em alguns casos, nao se- 
tA necessario usar particula ELSE. O 
fluxograma se parecera com o da figu- 
ra 5 e sera redigido desta maneira: 

100 IF condicSo THEN declara- 

que e, simplesmente, a propria declara- 
tao IF,..THEN. 



ESTHUTURAS EMBUTIDAS 



fi possivel embutir uma linha [F... 
THEN...ELSE dentro de outm declaracao 
IF...THEN...ELSE, Ou seja, a conseqiJen- 
cia de um THEN ou de um ELSE tam- 
bem podera ser um outro IF, e assim por 
diante. E o caso da se<;ao de programa 
abaixo, que executa a contagem de quan- 
tas panidas dois jogadores ganharam e 
imprime os resultados ap6s cada jogo: 



100 IF Ti<>T2 THEN GOTO 130 

110 PRINT" EMPATOU!" 

120 GOTO 190 

130 IF TKT2 THEN GOTO 170 

140 PRINT '0 JOCADOR 1 GANHA" 

150 LET Pl-Pl+1 

160 GOTO 190 

170 PRINT" JOCADOH 2 GANHA" 

180 LET P2-P2+1 

190 ... 

Todas as estruturas podem ser embu- 
lidas em qualquer combinagao e, na leo- 
ria, em qualquer profundidade. No en- 
tanlo, quanto mats voce as embute, me- 
nos legivel sc torna o programa; assim, 
e razolvel estabelecer um limite de pro- 
fundidade de tres ou quatro estruturas, 
Se precisar embutir mais estruturas, sub- 
divida o programa em mbdulos ou sub- 
rottnas menores. 

Examinando o ultimo programa, vo- 
cS observara que e dificil acompanha-lo, 
ainda que esteja perfeitamente estrutu- 
rado. Uma maneira pr^tica de tornar 
mais iegiveis as declara<:oes embutidas ^ 
recuar (indentar) as linhas do programa. 
Isso s6 e viivel nos computadores das li- 
nhas TRS-80, TRS-Cotor, Spectrum e 
MSX; neles, voce podcr^ reescrever o ul- 
timo programa da forma que se segue: 

100 IF T10T2 THEN GOTO 130 

110 PRINT- EMPATOU!' 

120 GOTO 190 

130 IF TKT2 THEN GOTO 170 

140 PRINT'O JOGADOR 1 GANHA" 

150 LET Pl-Pl+i 

160 GOTO 190 

170 PRINT" JOGADOH 2 GANHA" 

160 LET P2-P2+1 

190 . . . 





V£RDADEm 



A inlrodu^ao de linhas em branco em 
diferentes sefoes e a utilizacao de decla- 
racoes REM constituem outras manei- 
ras de tornar mais clara a estrutura de 
um programa. Para enirar as linhas em 
branco iios computadores Spectrum, 
basta digitar o niimcro da linha seguida 
de um espa?o e, em seguida, pressionar 
< ENTER > ou < RETURN > . Ao es- 
crever programas no TRS-80, TRS- 
Color ou MSX, voce podera obter um 
efeito semelhante digitando um apostro- 
fo ('), ao inves de dar o espafo. 



WHILE, ..00 



Outra declarac^ao importante em pro- 
gramagao estruturada e a WHILE...DO, 
que permite a repeti^ao em um progra- 
ma e e um dos recursos mais uteis para 
se criar um lago. Esta deciara^ao diz ao 
computador que fa^a (DO) repetida- 
mente uma coisa enquanto (WHILE) 
uma certa condi^ao for verdadeira. Se 
seu computador nSo possui as palavras 
WHILE e DO, voce pode inventar uma 
estrutura que fa?a a mesma coisa, utili- 
zando IF.. .THEN eGOTO. A redagao. 
em BASIC, e a seguime (veja o fluxo- 
grama correspondente na figura 6): 

100 . . . 

110 IF NOT condigio THEN GOTO 

140 
120 declaracao 
130 GOTO 110 
140 . . . 

Note que a linha 100 le a condigao IF 
NOT..., ou seja, verifica se a condicao 
nao ^ verdadeira. O procedimento e 
oposto do normal, ao qual voce esta 
acostumado, mas nao tern problema. Se 
a condifao for A =B entao NOT ( A = B ), 
sera equivalente a A< >B. Do mesmo 
modo, NOT (A < B) sera A > = B e assim 
por diante. Na verdade, voce podera es- 
crever NOT (A = B) se quiser, e o com- 
putador entenderi o que voce quer dizer. 

Eis aqui o exemplo de um programa 
curto (para cronometrar o cozimento de 
um ovo) que utiliza um lago WHILE: 




5 CLS 
10 PRINT AT~yrH : 'CONTADOH" 
20 INPUT "Quantoa tninutos voc 
e quer?" ,t 

30 PRINT AT 7,5;"Presaione qu 
alquer teela para come 

car' 

40 PAUSE 
SO CLS 
60 PRINT FLASH 1 ; AT 10,10;" 

TEMPO " 

70 POKE 23672,0: POKE 23673,0 



80 LET tiae-PEEK 23672+256* 

PEEK 23673: IF tl»e>t*50»60 

THEH GOTO 110 

90 PRINT AT 14. 10; INT (time/ 

50) ; " seftundoa' 
100 GOTO 80 

105 REM flffl do loop WHILE 
110 PRINT FLASH 1;AT 14.10!* 
TERMINADO! " 
120 SOUND .^,20 



80 IF TIMER>T*3000 THEN GOTO 11 



90 PRINT *298.INT(TIMER/50) ;"SE 

CIJNDOS" 

100 GOTO eo 

lOS REM FIM DO LACO "WHILE" 
HO PRINT e364.'TERMINA0Or 
120 SOUND 180,3 



TfU 



5 CL8 

10 LOCATE 10,3:PB1NT"CONTADOR D 

E TEMPO" 

20 LOCATE 0,6;INPUT"OUANTOS MIN 

UTOS VOCt QUER";T 



7. Escolhas mulliplas 




30 PRINT: PRINT" 

PRESS I ONE QU 

ALQUER TECLA 

PAEIA COMECAR"; 

40 IF INKEYS- 

-■THEN 40 

SO CLS A 

60 LOCATE 10,15:PBINT"CONTANDO. 

70 TIME-0 

75 REH COKECA LOOP WHILE 

80 IF TIME>T«3600 THEN GOTO 110 

90 LOCATE 12. 17 :PRINTINT (TIME/6 

0) ; •neg." 

100 GOTO 90 

105 REM FIM DO LOOP WHILE 

110 LOCATE ID. 19:PRINT"ESTA PRO 

NTO! " 

120 BEEP 

as 

5 CLS 

10 PRINT #43,'CONTADOR* 

15 LET ES-CHR$(27) 

20 PRINT 0129, ; :INPUT'QUANTOS H 

INUTOS VOCE QUEH 7";T 

30 PRINT ei96,"PRESSI0NE QUALQU 

ER TECLA PARA COHECAR' 

40 AS-INKEYS:IF A3-"" THEN GOTO 

40 
50 CLS 

60 PRINT §238. "TEMPO- 
70 TIMER - 
75 REH COMECO DO LACO "WHILE" 



100 REM COHANDO CASE 

110 IF CS-'C" THEN GOTO 170 

120 IF CS-"M" THEN GOTO 190 

130 IF C$-"A" THEN GOTO 210 

140 IF Cg-"L" THEN GOTO 230 

150 PRINT "coaando nao reconhec 

ido" 

160 GOTO 240 

170 PRINT "CRIAR REGISTRO" : COSU 

B 1000 

180 GOTO 240 

190 PRINT "MODIFICAR REGISTRO": 

GOSUB 2000 

200 GOTO 240 

210 PRINT "APAGAR REGISTRO" rCOS 

UB 3000 

220 GOTO 240 

230 PRINT "LISTAR REGISTROS" : GO 

SUB 400O 

240 REM FIM DO CASE 

Pode-se tamb^m fazer miiltiplas es- 
cothas por meio das declaragoes 
ON... GOTO e ON... GOSUB. Entretan 
to, quando utilizar ON. ..GOTO, veri- 
fique se cada uma das opfoes direciona 
voce ao final da segao. Na sub-rotina 
abaixo, por exempio, foi necessario usar 
um GOTO 1210 ap6s cada oppao, para 
direcionar o programa para o fim da ro- 
tina. Com uma declaragao CASE lal 
procedimento seria desnecessario. 

1000 REM SUBROTINA PAHA POLIGON 

OS 

1010 INPUT" QUANTOS LADOS VOCE Q 

UER?";N 



ESCOLHAS MULTIPLAS 



Normaimente, as estruturas IF... 
THEN e WHILE.. .DO sao suficientes 
para a maioria dos programas. No en- 
tanio, exisiem aigumas estruturas adi- 
cionais que lornam a programagao mais 
facil. Por exempio, muitos programas 
apreseniam mais de dois cursos de agao 
possiveis para um pontodeterminado 
Isso poderiaser resolvido com o empre 
go de IF.. .THEN embutidos; e mais, 
conveniente, porem, utilizar a es- 
truiura CASE (case) — como e 
conhecida. Ela classifica cada 
op<;ao em ordem e direciona 
computador a uma serie de 
cursos de agao possiveis. 
grande maioria dos inter- 
pretadores BASIC exis- 
tentes para micros nao 
inclui a declara? ao CA- 
SE, mas ela podc ser 
simulada por ouiros 
comandos padrio. 

O fluxograma 
para uma estr.u- 
tura CASE e 
mostrado na fi- 
gura 7 e, em BA- 
SIC, um progra- 
ma tipico seria: 




La^o REPEAT.. .UNTIL 

1020 ON N-2 GOTO 1060,1100.1140 

.1160,1180.1200 
1030 PRINT "EU NAO 



NOME D 



E UM 
1040 
ADOS 
1050 
1060 
1070 



PRINT" POL IGONO 



GOTO 1210 

PRINT -E UM TRIANGULO." 

PRINT -UM TRIANGULO COM 



OS 



LADOS IGUAIS CHAMA-SE" 
1080 PHINT "TBIANGULO EQUILATER 
O." 

1090 GOTO 1210 

1100 PRINT "E UM QUADRILATEBO. ' 
1110 PRINT "UM QUADRILATERO COM 

OS LADOS" 
1120 PRINT ■£ ANGULOS IGUAIS CH 
AKA-SE QUADRADO . " 
1130 GOTO 1210 

1140 PRINT "E UM PENTAGONO." 
1150 GOTO 1210 
1160 PRINT *E UM HEXAGONO." 
1170 GOTO 1210 

1180 PRINT "E UM HEPTAGONO." 
1190 GOTO 1210 
1200 PRINT "E UM OCTOGONO." 
1210 PRINT 
1220 RETURN 

Como se trata de unia sub-rotina, vo- 
ce ainda nao podera roda-la. O progra- 
ma para chamar a retina sera dado na 
proxima segao. 



REPEAT... UNTIL 



A declara«;ao REPEAT... UNTIL 

tambem e uma estrutura muilo litil pa- 
ra fazer o programa repetir um grupo 
de camandos (se seu computador nao 
possui esses comandos, podera simula- 
los por meio de outros). Nesse caso, ao 
cont/ario do WHILE.. .DO, o lago sem- 
pre e executado pelo menos uma vez. 
Veja o simbolo correspondcnic no flu- 
xograma da figura 8 e compare-o a fi- 
gura 6. Em BASIC, sera escrit.0 assim 



110 declaracao 

120 IF NOT condicao THEN GOTO 

110 
130 . . . 

Utilizando a sub-rotina do ultimo 
exemplo, voce podera escrever urn pro- 
grama utilizando urn la^o do tipo RE- 
PEAT, como o seguinte: 

10 PRINT "VOU DI2EH OS NOMES" 

20 PRINT "DE ALGUNS POLIGONOS . " 

30 HEM COKECO DO LACO 

40 GOSUB 1000 

50 INPUT "VOCE QUER OUTRO NOME 

?";A5 

60 IF LEFTS (AS. 1}-*S" THEN GOTO 

30 
70 PRINT "TCHAU 1 ' : END 

A linha lOOO e a sub-rotina de poli- 
gono dada na se^'do anterior. 



LACOS FOR. -NEXT 



Talvez voce nao tenha percebido, 
mas o familiar la^o FOR... NEXT e ape- 
nas urn caso especial do la(;o WHILE... 
DO. Ele pode ser utilizado quando se 
conhece antecipadamente o numero de 
vezes que o Ia?o devera ser repetido, 
pois esta informagao deve ser especifi- 
cada logo no inicio. A variavet que man- 
tem a contagem do ntimero de vezes ao 
redor do lafo e conhecida como varid- 
vel de conirole. 




Um fluxograma para o la^o FOR... 
NEXT e semelhante ao que sc ve na fi- 
gura 9. Comparando-o com o [a?o 
WHILE da figura 6, observa-se que tern 
a mesma estrutura geraJ. Em BASIC e 
descrito assim: 

100 FOR i=iain TO max STEP val 
110 declaracao 
120 NEXT 1 

Nao se deve saltar para fora de um 
lago FOR, utilizando uma deciaracao 
GOTO, ja que o inierpretador BASIC 
nao tern como identificar o que foi fei- 
to. Sera facil saltar de volta dentro de 
um tafo, no programa, mas a compreen- 
sao de tal estrutura e muico dificil. As- 
sim, cvite este procedimento. 



COMO COLOCAR TUDO JUNTO 



As estruturas vistas nesie artigo sao 
as mais conhecidas e importantes. e po- 
dem ser utilizadas em qualquer tipo de 
programa. Mas, para completar o pro- 
grama, voce devera ainda especificar as 
variaveis que ira utilizar e verificar se as 
variaveis dos diferentes modules nao en- 
trarao em choque umas com as outras. 
Alem disso, sera precise especificar to- 
das as entradas e saidas necessarias, tes- 
tar cada um dos modutos e encadea-los 
todos juntos. No proximo artigo voce 
vera como executar todas estas tarcfas. 
mantendo seu programa legivel e estru- 
lurado, Como exercicio, examine alguns 
programas ja publicados em INPUT e 
veja se consegue idemificar as estruturas 
utilizadas. Em seguida, tente meihorar o 
programa, tornando-o mais estruturado. 



( = ( + val 
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Acompanhe a criacao de uma aventura 
e, depois, crte seu proprio jogo. 
Aqui, OS primetros passos: o 
desenvolvimento do roteiro e a 
confeccao do mapa dos locals. 



Antes de programar um jogo, e im- 
portante elaborar minuciosamente o ro- 
teiro, para evitar dificultlades posterio- 
res, como erros e pontos obscuros a se- 
rem esclarecidos. 

Para que voce se familiarize com es- 
ta etapa do trabatho, acompanhe conos- 
co o desenvolvimento de um programa 
de avenluras tipico. A hisioria que to- 
maraos como exemplo se passa em um 
pais distante, onde o jogador deve en- 
contrar o oiho perdido de um legends- 
rio totem inca. Se voce seguir passo a 
passo as etapas percorridas para a mon- 
tagem desta aventura, sentira maior fa- 
cilidade ao pmjetar seu proprio jogo. 



ROTEIRO 



Em primeiro lugar o programador 
precisa criar um "mundo" que combi- 
ne com a esirutura basica do roteiro, Es- 
le mundo compoe-se de uma scrie de ob- 
jeios, cada qual destinado a desempe- 
nhar um papei especifico. Alem disso, 
deve criar alguns misierios e problemas 
para o jogador resolver. 

Nao e necessario fazer tudo isso de 
uma vez: a medida que se pensa na his- 
toria, seus contornos vao se lornando 
mais nitidos, o que facilita a definitjao 
dos detalhes, Comece, porianto, rascu- 
nhando o roteiro basico. 

Nosso jogador encontra-se em pds- 
sima situa^ao financeira e, por isso, sai 
em busca do fabuloso o!ho inca {de al- 
tissimo valor), escondido em algum lu- 
gar do mundo da aventura. Infelizmen- 
te, a Secretaria da Receita enviou um fis- 
cal para acompanhar o caso. O papel 
desse personagem e bastante semclhan- 
te ao do pirata de outras aventuras — 
ou seja, cabe-lhe arruinar o infeliz jo- 
gador. Sua aparigao pode acarretar dois 
acontecimenlos. Se o jogador estiver le- 
vando consigo um objeto, o fiscal o con- 




fiscara para amortizar sua enorme divi- 
da com a Secretaria. Caso o jogador nao 
tenha encontrado nenhum objeto (nao 
podendo, portanto, pagar), o fiscal o 
prenderS numa masmorra. 

Este e esquema basico da aventura. 
Resta, agora, trabalhar alguns detalhes 
— por exemplo, os objetos que serao en- 
contrados na busca. No nosso jogo, de- 
cidimos conirariar a regra geral de que 
todos OS objetos devem ser liieis ao de- 
senvolvimento da aventura. Desta vez, 
havera um objeto sem nenhuma utilida- 
de na busca empreendida pelo jogador: 
trata-se de algo pesado (um tijolo, por 
exemplo), que ira causar a morte de 
quem tentar atravessar o rio a nado, 
carregando-o. 

O objeto mais importante de todos 
sera o olho. Para aumentar o intercsse 
do jogo, convem imaginar uma manei- 
ra de disfari;a-lo ou esconde-lo, Pode- 
riamos coloca-lo dentro de um baij ou 
de uma catacumba, mas existem solu- 
coes mais sutis para enganar o jogador, 
.Assim, em vez de esconder o olho num 
lugar que obviamente contem algo de 
valor, vamos deixa-lo dentro de um sa- 
quinho dc bolas de gude. O aventureiro 
nao ira a lugar nenhum se leniarjogar 
com as holinhas de gude! 



Um dos artificios favoriios em jogo^ 
de aventura e o quarto escuro, no qual 
todas as coisas horriveis podem aconte- 
cer, Esia aventura nao sera uma exce- 
9ao, Sem a lampada — que devera des- 
cobrir em algum misierioso lugar — o 
pobre aventureiro nao encontrara as sai- 
das, ficando em pessima siiuagao. 

Talvez isso seja um tanto injusto, ja 
que o jogador nao recebera nenhum avi- 
so de perigo iminente, nem tera condi- 
<;6es de sair do quarto escuro, a nao ser 
que tenha encontrado a lampada. Para 
dar uma melhor oportunidade ao aven- 
tureiro, permitindo-lhe enfrentar pelo 
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menos um dos perigos — o fiscal — , 
uma arma de fogo estari escondida em 
algum lugar. 

Finalmenie, para aumentar a diver- 
sao, havera uma sala do trono e uma 
corrente, A sala do trono nao c exata- 
mente o que parece. Na verdade, o tro- 
no em questao se transforma num sim- 
ples sanitario, se o jogador nao estiver 
de posse do olho. E, caso puxe a cor- 
rente, provocara uma descarga que o fa- 
ra desaparecer, tirando-o mais depres- 
sa da aventura. 

Falta ainda estabelecer um dos prin- 
cipals elementos do jogo: as condicoes 
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necessarias a vitoria. Nao existc saida 
evidente do mundo da aventura e boa 
parte do quebra-cabecas consiste em 
descobrir como escapar com a peija do 
totem. Assim, para ganhar o jogo, 
avertureiro obviamente precisara ter en- 
conirado o olho — nao apenas o saqui- 
nho de bolas de gude. Para dificultar urn 
pouco mais, ele devera tambem estar na 
sala do trono. Puxar a corrence desta vez 
nao fara com que ele entre pelo cano! 
Transformar a saida em risco, sob 
condicoes diferentes, apresenta a vanta- 
gem de desencorajar o jogador a tenta- 
la constantemente; desta maneira pro- 
longa-se jogo todo. 



A AVENTURA ATE AQUI 



Antes de comeifar o mapeamento, 
convem fazer uma recapitula?ao, listan- 
do OS elementos ate agora envolvidos na 
aventura, Assim, nao se corre o risco de 
perder o fio da meada. 



PERSONACENS 

• Aventureiro 

• Fiscal da Receita 
aleatoriamente 



COMO FAZER MAPA 



O primeiro mapa sera composto por 
uma serie de quadrados ligados em re si 
por setas, como mostra a ilustraijao des- 
ta pagina. Cada quadrado represeniara 
um ambiente ou ioca! da aventura — lo- 
cal lalvez seja o termo mais adequado, 
por sua abrangencia. Pode designar des- 
de a cabei^a de um alfinete escondido na 
barra do vestido da rainha, ate uma 
imensa pianicie, Todos os locals devem 
ser incluidos no mapa: os da lista preli- 
minar e outros que se fagam necessaries 
para completar o jogo. 

Ao esbo(;ar o mapa, nao se esquega 
de assinalar a dire<;ao em que se pode 
ir a partir de cada local. Se qui-ser, in- 
clua saidas que so funcionem em uma 
direcao — acompanhadas de mensa- 
gens, como por exemplo: 

A PORTA BATE, 
FECHANDO-SE ATRAS DE VOC£ 



deve surgir 



As faixas listradas que saem do quar- 
to escuro indicam que o jogador so po- 
dera ir na dire(;ao indicada quando de- 

Floresta 



Arma de fogo 
na margem oposta 



cisando de memoria — descriijoes de lo- 
cals, palavras que o programa deve re- 
conhecer, o niJmero de objetos e o pa- 
pti] de cada um deles, o numcro de enig- 
mas e sua complexidade, etc. 

Depois de ler programado algumas 
pequenas aventuras e verificado o espa- 
t^o que ocupam, ficara mais facil calcu- 
lar que e possivel encaixar na memo- 
ria do seu computador. 

Quern tiver um micro de 16K logo 
descobrira que i impossivel escrever 
uma aventura em grande escala dispon- 
do de lao pouca memoria RAM. No en- 
tanto, a aventura que desenvolveremos 
aqui incJui um numero reduzido de lo- 
cals — doze, ao todo — e, ponanto, nao 
dara esse tipo de dor de cabe<;a. 

Um mapa para a Busca do Olho Inca 
pode ser semelhante ao de nossa ilusira- 
Cao. As ligagoes entre os locals foram 
todas previstas, e o ponto de pariida es- 
tabelecido. Isso e muito importante, 
pois afeta a maneira de se abordar a 
aventura, a ordem em que os objetos sao 
descobertos e tambem a tentativa de 



OBJETOS 

• Globo ocular — escondido no 
saquinho de bolas de gude. 

• Tijolo — peso que mata o 
aventureiro caso este tente 
atravessar o rio a nado 

• Lampada — necessaria para se achar 
a saida do quarto escuro 

• Arma — para matar o fiscal da 
Receita 

• Corrente — tira o aventureiro do 
jogo se este chegar a sala do trono 
e pu7ta-la, sem estar de posse do olho 

LOCAIS 

• Rio 

• Quarto escuro 

• Sala do trono 

Ale aqui, fixamos apenas tres dos lo- 
cals da aventura. em funfao do que ne- 
les deve acontecer. Poderaos muito bem, 
neste ponto, tomar novas decisoes. Mas, 
seja como for, o proximo passo consis- 
tira em encaixar todos os elementos num 
mesmo mapa do mundo da aventura. 




Ar livre 

Saquinho de bolas de gude 

Olho — ng saquinho 



Sala empoeirada 
Hall de enirada 
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TijOlo Atalho 

terminadas condicoes forem satisfeitas. 
No nosso caso, a condigao e estar de 
posse da lampada acesa, para enxergar 
as saidas. 

Nao e facil prever o numero de locals 
que determinada quantidade de memo- 
ria RAM pode center. A dificuldade es- 
ta no proprio programa de aventura, 
que inclui muiios elementos. todos pre- 



Hoftao 



O primeiru mapa da avcnlura mostra todos 
<is locaiii planrjadns em hu^s poslfoes 
relativas. As seias vermelhas indicam a^i 
saidai. que estao constanlemenle aberlas; 
as selas li$trada>i indicam saidas que so 
podem ser ulilizadas sob condi^oes 
cspeclais — neste caso, quando o 
aventureiro estrver de posse da lampada. 
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se resolver o quebra-cabecas. 

Os objetos lambem estao assinalados 
em seus locals. Os que aparecerao pos- 
tedormente — como, por exemplo, o 
olho inca — devem ser lisiados a mar- 
gem do mapa. 



DO MAPA AOS SETORES 



Uma vez concluido o mapa, os dados 
podem ser transferidos para os setores. 

Em geral. no planejamento de jogos 
de aventura, os setores sao organizados 
em dois tipos de conjunto; um que tern 
por base quadrados e outro que lem por 
base octogonos (veja as ilustra^oes na 
pagina 230). A escolha de qual utilizar 
dependera do niimero de saidas de ca- 
da local. 

O tipo mais simples de aventura in- 
clui saidas em quatro diretpoes: norte, 
sul, leste e oeste (como na Busca do 
0!ho). Nessecaso, deve-se transferir os 
dados para um conjunio de setores qua- 
drados, de modo que se enquadrem nas 



condigoes do mapa proposto. A manei- 
ra de faze-lo sera detalhadamente expfi- 
cada mais adiante. 

Se a aventura incluir saidas a noroes- 
te, nordeste, sudeste e sudoeste, deve- 
se utilizar o conjunto de setores octogo- 
nais, O emprego desse tipo de conjunto 
e, porem, muito complicado. 

Existe ainda a possibilidade de se in- 
cluir, na aventura, deslocamentos para 
cima ou para baixo, Nesse caso, a me- 
Ihor solugao e a utiliza^ao de conjuntos 
di stint OS de setores para cada "nivel" 
da aventura. 

A Busca do Olho tern como base um 
conjunto do tipo quadrado — ou seja, 
permite saidas somente para none, sul, 
ieste e oeste. A nao ser que haja uma 
real necessidade de outras dire^oes, es- 
se tipo de aventura e bastante satisfato- 
rio, permitindo, inclusive, que se intro- 
duza uma certa confusao no direciona- 
mento das saidas. Por exemplo, pode- 
se acrescentar a seguinte frase a uma 
descri(;ao: 

EXISTE UMA ESC AD A 
DESCENDO PARA O OESTE 



e, para descer as escadas, bastara usar 
a resposta normal OESTE. 



OS SETORES 



Nossa aventura utilizara um conjun- 
to de setores composto de seis por qua- 
tro quadrados — verifique o mapa pro- 
posto, para cima e para baixo, para a 
esquerda e para a direita. Antes de ini- 
ciar a transferencia de todos os detalhes 
para os setores. certifique-se de que ca- 
da quadrado foi devidamente numera- 
do. Deve-sc comefar com o niimero 1, 
no atto a esquerda, e prosseguir ate a 
parte inferior a direita. 

Uma vez numerados os quadrados e 
transferidos os detalhes, o conjunto dos 
setores tera uma aparencia semelhante 
a da ilustrai;ao da pagina 231. 



COMO COMECAfl PROGRAMA 



Depois de estruturar o roteiro basi- 
co da historia e de completar os setores, 
pode-se dar inicio ao programa. 

A primeira etapa sera a digita?ao das 
descrigoes dos locals, lendo como base 
setor proposto. Deve-se decidir a ex- 
tensao das descripoes e procurar trans- 
mitir o melhor possivel a atmosfera da 
aventura, sem desperd)<;ar memoria. 

Junto com as descrigoes dos locais, 
o computador dever^ receber as infor- 
magoes sobre as dire?6es em que se en- 
contram as saidas. 
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Parle de urn conjunto de setores quadrados. 
Neste Itpo de conjunto, podr-se plancjar 
aventuras ulilizando qutftro saidas: para 
norte, sul, lesie e oeste. 

Veja, abaixo, as primeiras sei;6es do 
programa. O niimero alto das linhas tem 
a finalidade de assegurar espago para as 
sepoes anteriores, a medida que o jo- 
go for se descnvolvendo. Digiie a seijao 
e preserve-a em fita: 



50 REM ** DESCRICAO DO LOCAL 

5010 REM •* LOCAL 4 *■ 
5020 PRINT "VOCE ESTA DO LADO D 
e FORA DE UM GRANDE PREDIO' 
5030 LET N-0: LET E-0: LET S-1 : 

LET W-0: RETURN 
5040 REM •* LOCAL 7 ** 
5050 PRINT 'VOCE ESTA A BEIRA D 
E UM GRANDE RIO" 
5060 LET N-0: LET E-1: LET S-0 : 

LET W-0: RETURN 
507 REM ** LOCAL 8 ■* 
5090 PRINT -VOCE ESTA NUMA FLOR 
ESTA PETRIFI-CADA" 
5090 LET N-0: LET E-0: LET S-1: 

LET W-li RETURN 
5100 REM ** LOCAL 10 ** 
5110 PRINT "UOCE ESTA NUMA SALA 

EMPOEIRADA" 
5120 LET N-1: LET E-1: LET S-1 : 

LET W-0: RETURN 
5130 REM •■ LOCAL 11 ■* 
5140 PRINT "VOCE ESTA NUMA SALA 

ESCUHA' 
5150 IF LAOl THEN LET N-0: LE 
T E-0: LET S-0: LET W-0: PRINT 
" ESTA MUITO ESCUHO PARA VEH AS 

SAIDAS": LET DA-1: RETURN 
5160 LET N-0: LET E-0: LET S-1: 

LET W-1: RETURN 
5170 REM •« LOCAL 14 ** 
5180 PRINT "VOCE ESTA EM UM ATA 
LHO ENLAMEADO' 
5190 LET N"l: LET E-1: LET S-0: 

LET W-0: RETURN 
5200 REM •■ LOCAL 15 ** 
S210 PRINT 'VOCE ESTA NA ENTRAD 
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Parte de um conjunto de setores ociogunais 
— ulilizado quando se quer incluir saidas 
para norueiite, nordeste, sudoesle e 
!jude»te. 

A DA CIDADE OCULTA" 

5220 LET N-0: LET E-1: LET S-0; 

LET W-1: RETURN 
5230 REM ** LOCAL 16 ** 
5240 PRINT "VOCE ESTA NO HALL D 
E ENTRADA' 
52S0 LET N-1: LET E-1: LET S-1; 

LET W-1: RETURN 
5260 REM ** LOCAL 17 ** 
5i:70 PRINT "UOCE ESTA NO PATIO" 
5260 LET N-1; LET E-1; LET S-0: 

LET W-1 : RETURN 
5290 REM ** LOCAL 18 *• 
5300 PRINT "UOCE ESTA NO JAHDIM 

5310 LET N-0: LET E-0; LET S-1: 

LET W-1 : RETURN 
5 320 REM *■ LOCAL 22 ** 
5330 PRINT "UOCE ESTA NO GUARDA 
-LOUCAS" 
5340 LET N-1: LET E-0: LET S-0: 

LET W-0: RETURN 
5350 REM ** LOCAL 24 ** 
5360 PRINT "VOCE ESTA NA SALA D 
TRONO" 
5370 LET N-1: LET E-0: LET S-0: 

LET W-0: RETURN 
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5000 REM**DESCRICA0 DOS LOCAIS* 

* 

5010 REM**LOCAL 4«* 
5020 PRINT" VOCE ESTA DO LADO D 
E FORA DE UMA GRANDE CONSTHU 
CAO" 

5030 N-0:E-0:S=1:W-0:RETURN 
5040 BEM**LOCAL 7"* 
5050 PRINT' VOCE ESTA A BEIRA D 
E Uft GRANDE RIO" 
5060 N-0:E-1:S-0:W-0:RETUHN 
5070 HEM**LOCAL 8** 
5080 PRINT" VOCE ESTA NUMA FLOR 
ESTA PETRIFI CADA" 
5090 N-0 : E=0 : S=l :W=1 : RETURN 
5100 REMO^LOCAL lO*" 
5110 PRINT" VOCE ESTA NUMA SALA 
MUITO SUJA" 



5120 N-1:E-1 :S"1:U»0 ; RETURN 

5130 HEM**LOCAL 11«* 

5140 PRINT" VOCE ESTA NUM QUART 

ESCURO" 

5150 IF OB(6)<>-l OB LAOl THEN 
N-0:E-0:S=0 :W=0:PRINT" ESTA MU 

1 TO ESCUHO PAHA UER AS SAIDAS 
" : RETURN 

5160 N=0:E-0;S-1;W-1 ;RETURN 

5170 REM*"LOCAL 14** 

5180 PRINT" -VOCE ESTA NUM ATALH 

ENLAMEADO" 

5190 N-1 : E-1 : S-0 ; W-0: RETURN 

5200 REM **LOCAL 15** 

5210 PRINT" VOCE ESTA NA ENTRAD 

A DA CIDADE OCULTA" 

5220 N-0:E-l:S-0:U-lrRETURN 

5230 REM**L0CAL 16«* 

6240 PRINT" UOCE ESTA NO HALL D 

E ENTRADA" 

5250 N-1;E-1:S-1:W-1:RETURN 

5260 REM**LOCAL 17** 

5270 PRINT" VOCE ESTA NO PATIO" 

5280 N-1 :E-1 :S-0:W=1 :RETURN 

5290 REM*«LOCAL 18** 

5300 PRINT' VOCE ESTA NO JARDIM 

5310 N=0 : E-0: S-1 : W-1 r RETURN 

5320 REM«*LOCAL 22* 

5330 PRINT' VOCE ESTA NO GUARDA 

-LOUCAS" 

5340 N-1: E-0; S-0: W-0: RETURN 

5350 REM**LOCAL 24** 

5360 PRINT" VOCE ESTA NA SALA D 

TRONO" 

5370 N-1: E-0: S-0: W-0: RETURN 

Nao se preocupe com o uso repetido 
de comentarios REM incluidos na me- 
moria. Ncsia etapa inicial do desenvol- 
vimento do programa, o importante e 
saber o que cada trecho do programa 
faz, ou qual o niimero do local a que de- 
ternninada descrl<;ao se refere. Os co- 
mentarios sempre podem ser eliminados 
posieriormente. Apos cada linha de des- 
cri(;ao do local, existe outra linha con- 
tendo dados sobre suas possiveis sai'das. 
As variaveis N, S. L e O referem-se a 
norte, sul, leste e oeste. Elas podem ter 
umoudoisvalores — significa que nao 
ha saida naquela dircijao, ao passo que 

1 significa que ha uma saida. 

Finalmente, existe um RETURN 
apos as se<;6es do programa, pois cada 
descrigao de local sera chamada por 
uma inslrufao GOSUB. 

Um IF. ..THEN extra na secao do 
quarto escuro verifica se o aventureiro 
possui a lampada; porem, a descrigao 
das variaveis sera traiada mais adianie, 
quando analisarmos os objetoa. 

No proximo artigo veremos como 
movimentar o jogador pelo mundo que 
criamos. 

ij'llima etapa anle» da programa^ao. O 
conjunto de setures e uma copia direla 
do mapa, numa forma qye Tscilila i> 
Iratialho. 
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IRECU^SOS GRAFIC 
SOFiSTICAOOS 




Os computadores domesticos oferecem 
vcirios recursos so artista amador. 
Aprenda novas formas de utiiizar 
OS comandos gralicos em BASIC 
e crie livremente suas ilustra^des. 
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Tendo ja dominado os principios ba- 
sicos do desenho na tela, voce pode co- 
me?ar a empregar alguns recursos grafi- 
cos especiais, disponiveis no seu compu- 
tador. Comandos como MOVE, PLOT, 
DRAW, PAINT e CIRCLE permitem 
que voce solte as redeas de sua imagi- 
nagao, criando qualquer tipo de imagem 
— de um diagrama explicative para ilus- 
trar uma mensagem comercial ao cena- 
rio de um excitante jogo de aventuras. 

No artigo da pagina 1 13 mostramos 
como utilizar comandos simples para 
criar ilustraijdes com linhas natelae, em 
alguns casos, como acrescentar cor. Mas 
voce pode sofisticar seu repertorio, 
aprendendo outras maneiras de tragar 
pontos, desenhar linhas, triangulos, 
quadrados e circulos. Os comandos aqui 
ensinados — em combinagao com cores 
ou nao — constituem um eficiente re- 
curso para formar imagens estaticas ou 
ate mesmo moveis. 

Embora os varios modelos de com- 
putador utiiizem esses comandos de ma- 
neira diferente, todos sao capazes de 
produzir alguns efeitos interessantes. As 
exce<;6es sao o Apple, o TK-2000, o 
TRS-80 e ZX-81 , cujo BASIC nao in- 
c!ui esses comandos, Entretanto, voce 
pode obte-los acrescentando um cartu- 
cho ROM adequado ou adquirindo pro- 
gramas em disco ou fita. 



ARCOS E CIRCULOS 



Os arcos e circulos sao um dos mais 
litcis "instrumentos" do Spectrum pa- 
ra fazer desenhos na tela. 

Este programa para um campo de 
golfe mostracomo emprega-los para de- 
senhar arvores, cercas, agua, terrenes 
acidentados e buracos. 

Voce pode testar seu progresso na 
medida em que for rodando cada gru- 
po de linhas. Nao de o comando NEW 
toda hora; se voce deixar as linhas in- 
tactas, obtera a cena mostrada na ilus- 
tracao da pagina 237. 

Antes de comecar o trabalho com os 
circulos, porem, convem deixar pronta 
a sede do clube. Para isso, entre estas 
linhas no computador: 



90 BORDER 4: PAPER 4: CLS 
200 LET w-:0 : LET s-50 
210 FOa c-162 TO 174 
220 PLOT INK 2;w.c 
230 DRAW INK 2; 3,0 
240 LET W'W+2: LET 3-3-4 
2S0 NEXT c 

260 FOR b=14B TO 162 
270 PLOT INK 2;10,b 
280 DRAW INK 2; 50.0 
290 NEXT b 

295 DRAW INK 2; 10, -3: DRAW 0, 
-11 

300 PRINT INK ; AT 2,2;" ' ;AT 
2.4;" " ; AT 2.6;" " 

As linhas numeradas de 200 a 250 de- 
senham o telhado, utilizando iccnicas 
semelhantes as ensinadas no artigo an- 
terior (pagina 113). Na tela, em 10.162, 
aparece primeiro uma linha de 50 oixels 
de largura. Depois uma largura de 4 
pixels, para cada pixel desenhado. 

Um lago parecido aos das linhas 260 
a 290 desenha as paredes, com duas li- 
nhas extras (na linha 295) para tra?ar a 
varanda. Em seguida, a linha 300 preen- 
che as janelas pelo metodo mais simples 
possive! — imprimindo um quadrado 
negro, com caracteres graficos da ROM, 
em tres lugares da parede. 



COMO DESENHAR ARCOS 



No Spectrum, como ja foi explicado 
anteriormente (pagina 1 15), o comando 
CIRCLE e o instrumento mais simples 
para se desenhar um circulo completo. 

Mas,sequisei somcnie uma parte do 
circulo, sera mais facil acrescentar um 
numero a uma declara^ao convencional 
DRAW. Pode-se obter uma variedade 
imensa de efeitos por meio dessa decla- 
ra^ao; assim, vale a pena fazer alguns 
experiraentos antes de prosseguir. 

10 PLOT 130.30 
20 DRAW 0,10,1 
30 GOTO 20 

(Nao se preocupe com a mensagem de 
erro.) 

Como voce deve se lembrar, os pri- 
meiros dois mimeros da linha 20 dizem 
ao computador para desenhar uma linha 
do ponto tracado ate um ponto 10 pi- 
xels acima dele. O ultimo numero, por 
sua vez, determina a curvatura da linha. 




Informa-se assim, ao computador, qual 
frapao do circulo sera desenhada. Um 
circulo completo e representado par 
duas vezes Pi (3.1416); portanto, com 
o numero 1 , obtem-se o desenho de 
aproximadamentc um sexto do circulo 
(ou, mais precisamente, 1 dividido por 
duas vezes Pi). Se voce teniar modificar 
a linha 20 para: 

20 DRAW 0,10,2 

... obtera uma serie de curvas mais pro- 
nunciadas. Do mesmo modo, 0,10,3 for- 
nece um modelo denteado, e 0,10,4 pro- 
duz parte de uma cerca (ou a meiade de 
um ironco de palmeira, dependendo de 
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RECURSOS GRAFICOS 
ESPECIAIS 



ARCOS E CIRCULOS 

DESENHE UM CAMPQ DE 

GOLFE NO SPECTRUM 



COMANOO DRAW 



UM NAViO 



EM POUCAS LINHAS 



CQMO DESENHAR LETRAS 
MENSAGENS LONGAS 




sua imagina<;ao), enquanio 0,10,6 produz 
umaespiral. Se, no entanto.voce tentar: 



20 DRAW 0.10. 2*91 



... poderi ter uma surpresa! O Spectrum 
desenhar^ um circulo em que dois pon- 
tos estarao cm linha reta.Mas, jd que tal 
circulo pode se tornar muito maior do 
que sua sala — na verdade, bem maior 
do que o sistema solar — , o computa- 
dor desenhara apenas a parte do circu- 
lo que e capaz. 

Para o cenario, experimente isto: 

10 PLOT 0,100 

20 DRAW RND*5+5,0,2 

30 GOTO 20 

A forma obtida assemelha-se a das 
ondas em um mar agiiado. Para dese- 
nhar aguas calmas, tente RND*10 + 10 
ou mesmo RND*IS-(- 10. 

Com relagao aos circulos e arcos, vale 
ainda lembrar que um niimero negati- 
vo no final da linha DRAW produzira 
a imagem-espelho do arco. 

Agora, limpe as linhas de 10 a 30 e 
continue montando o cenirio para a pis- 
ta de golfe. 



A CERCA E LAGO 



O programa da pista de golfe inclui 
dois exemplos de arcos utilizados para 
efeito grafico — o primeiro compoe a 
pequena cerca em frente k sede do clu- 
be; o segundo, o lago. 

Digite estas linhas: 

310 FOR f=0 TO 84 STEP 3 

320 PLOT f.l42 

330 DRAW 3,0,-3 

340 NEXT f 

350 DRAW 35.-42: DRAW -12,-6 

O ponto de partida na tela e 0,142. 
A linha 330 desenha uma serie de arcos 
estreitos — ou seja. semicirculos com 
apenas 3 pixels de largura — para for- 
mar a cerca. O numero obtido e regula- 
do pelo lapo FOR... NEXT. 

Agora, entre e rode estas linhas: 



100 LET x-130: 

z-50 

110 PLOT INK 

120 DRAW INK 

130 LET x-x+1 : 

z-3-1 



LET v-125: LET 

5 ;x,0 

5;y.z.-1.25 
LET y-y-1 : LET 



110 IF X>254 THEN GOTO 1/0 
150 IF zCl THEN LET Z'O 
160 GOTO 110 

Aqui a iJustracao ^ mais complicada. 
Em primeiro lugar, o compuiador tra- 
ca urn ponxo de 130 pixels a parti r da 
esquerda c pixel a partir do canto in- 
ferior da tela, Em seguida, deseniia uma 
linha no ponto 125 pixels a direita e a 
eleva a 50 pixels do canto inferior da te- 
la, "arqueando" a linha em - 1.25 ra- 
diano, a medida que ela vai se de- 
senvolvendo. 

A pariir desse estdgio as variaveis en- 
iram em cena, A variavel x inicia cada 
linha ! pixel mais a direita; a variavel 
y torna a linha I pixel mais curta do que 
a anterior (caso contrario ela ultrapas- 
saria OS limites da tela), enquanto a va- 
riavel I fa; com que a linha termine I 
pixel abaixo da anterior. 

Eventualmente, e claro, a variavel / 
podera se tornar urn niimero negativo, 
fazendo com que o computador tente 
(mas falhe) imprimir o canto inferior da 
tela. Por isso a linha 150 e necessaria: 
ela faz com que todas as pequenas linhas 
no final do programa lerminem na linha 
inferior da tela. 



AS ARVORES E OS ARBUSTOS 



O programa da pisia de golfe tam- 
bem utiliza circulos completes {como 
um substituto para PAINT ou uma de- 
clara?ao similar, disponivel em alguns 
computadores) para produ/-ir arvores e 
arbustos. Estas poucas linhas desenha- 
rao alguns arbu.stos ao acaso no "gra- 
mado": 

400 FOR r-172 TO 168 STEP -1 

410 LET x-HND*45+195 

41S PLOT x,r-2: DRAW 0,-2 

420 CIRCLE K.r.RND*2+l 

440 CIRCLE x+:0.r ,BND*2+1 

450 NEXT r 

Estas outras linhas produzirSo algo 
parecido, no lado direito; 

460 FOR r-135 TO 172 STEP 6 

470 LET y-252 

480 CIRCLE y,r,RND+2 

490 NEXT r 

As arvores, no lado inferior esquer- 
do, sao muito grande.s e, por isso, nao 
se pode desenha-las aleatoriamente, 
usando DRAW. Assim, utilizamos uma 
tecnica diferente; READ,. .DATA (ve- 
ja paginas 128 a 133); 

900 FOR w-1 TO .1 
910 READ a,b 
920 PLOT a,b 
930 DRAW 0,-24 

940 LET f-RND«5+B 



950 CIRCLE a-10.b+f,f: CIRCLE 
a,b+f,f: CIRCLE a+iO,b+f,t 
960 CIRCLE a-5,b+f*2,f: 
CIRCLE a+5,b+f*2,f 
970 CIRCLE a,b+f*3.f 
980 NEXT u 
3000 DATA 20,70,52,85,84,100 

A solu(;ao, aqui. foi dtsenhar primei- 
ro OS troncos, de modo descendente, a 
partir dos pontos tratjados originalmcn- 
te. Desse modo, evita-se que eies apare- 
vam atraves das "folhagens". Os tron- 
cos sao tra(;ado5 na tela a 20,70 e assim 
por dianie, pelos dadcs fornecidos pela 
linha 3000. A linha 940 desenha aleato- 
riamente o tatTianho das folhagens, en- 
quanto que b + f, na linha 950, assegu- 
ra que as series de circulos ao fundo ini- 
ciem com uma distancia razoavel acima 
dos troncos. 



TOQUES FINAIS 



O tee propulsar, ou seja, o apoio on- 
de se coloca a bota para a tacada inicial, 
c desenhado por estas linhas: 

1000 LET t-30 
1010 FOR y-0 TO 10 
1020 PLOT t,y 
1030 DRAW -30,30 
1040 LET t-t+2 
1050 NEXT y 

E as linhas abaixo desenharao as ban- 
deirinhas no gramado; 

170 PLOT 220,140 

180 DRAW 0.15: DRAW 8,-3 

DRAW -8.-2 

190 PLOT 22,120 

195 DRAW 0,18: DRAW 9,-3; 

DRAW -9.-2 

Finalmenie, voce precisara de alguns 
buracos, Na ausencia de uma dcciara- 
(;ao PAINT, a maneira de desenha-los 
que oferecc os melhores resultados (em- 
bora tambem seja a mais demorada) e 
comegar com uma clipse bem pequena 
e ir aumentando-a, pixel por pixel, ate 
atingir um tamanho razoavel, 

Como o tragado de elipses serd dcta- 
Ihadamcntc cxplicado em um artigo fu- 
turo sobre as fun^oes matematicas do 
computador, cntre e rode estas linhas: 

1495 LET r-l 

1500 FOR Ji-0 TO 2"P1 STEP PI/18 



1510 PLOT INK 6;168+r*SlN x,14 

7+r«C0S x/2. 5 

1520 PLOT INK 6;235+r*SIN k.IO 

6+r*C0g X/2.7& 

1530 PLOT INK 6;225+r*SIN x,97 

+r*COS xy2.5 

1540 NEXT X 

1550 LET r-r+2 

1560 IF r>20 THEN GOTO 6000 

1570 GOTO 1500 



Alternativamente, voce podera fazer 
OS arbustos de um modo mais simples, 
porem mais grosseiro, utilizando bEocos 
graficos. 



D^l 



COMANDO DflAW 



Os comandos CIRCLE e LINE sao 

muito uteis para desenhos simples de 
formato regular, requerendo um mi'nimo 
esfor<;o do programador, Emprega-Ios 
para desenhos mais complicados, porem, 
tornara seus programas longos e de difi- 
cil manuseio. Imagine o tamanho de um 
programa que desenhasse algo como o 
navio da pagina 232, usando um coman- 
do LINE para cada linha da ilustra^ao... 

Para contornar esse problema. deve- 
mos utilizar o comando DRAW, que 
permite direcionar a trajetoria de uma 
linha enquanto ela esta sendo tragada. 
Podemos dizer ao computador que leve 
a linha ate uma certa distancia a direi- 
ta, ate uma outra distancia para cima e 
assim per diante. Essas instrugoes sao 
fornecidas dentro de um cordao, o que 
torna o programa muito mais compacto. 

Como exempio, digite e rode este 
programa; veja como e possivel dese- 
nhar um navio com algumas poucas 
linhas. 
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10 PMODE 4.1 

20 PCLS 5 

30 SCREEN 1.1 

40 DRAW ■BM23.96C0- 

50 DRAW "R2eE2U3L6UR6E2R5F2D3R3 

U2R7D2R4U9E2H4F2DSR3U2H4U6E3R5D 

8- 

60 DRAW "R3U24L3UneDL4D24RF2RSD 

4R4U4R&U9E3R5D10R4U2R4U14RD10R3 

U2" 

70 DRAW "R4D11H7U3E2R4F2D3RDSH3 

U5E2R8D2R6U2R7UE2R6F2D4R4U4E2R5 

F2'' 

80 DRAW 'R6DL6D3H24G12L195H4U5" 

90 PAINT (127,100) ,0,0 

100 GOTO 100 
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30 SCREEN 2 

40 DRAW 'BM23,96C1" 

50 DRAW -R28E2U3L6UR6E2R5F2D3R3 

U2R7D2R4U9E2R4F2D5R3U2R4U6E3R5D 

8" 

60 DRAW ■R3U24L3URaDL4D24RF2R5D 

4H4U4R6U9E3R5D10B4U2R4U14RD10R3 

U2" 

70 DRAW -R4D11H7U3E2R4F2D3BD8R3 

U5E2R8D2R6U2R7UE2&6F2D4R4U4E2R5 

F2" 

eO DRAW "R6DL6D3R24G12L195H4U5" 



90 PAINT (127,1001 ,1,1 
100 GOTO 100 

O programa funciona assim: 

As linhas numeradas de 10 a 30 esta- 
belecem as condi<;6es iniciais, selecio- 
nando uma tela de alta resolu?ao. 

Os comandos DRAW das linhas 40 
a 80 formam ocontorno do navio^Este 
comando opera somente no cordao de 
insirugoes contidas entre aspas. 

A Hnha 40 e a mais simples, com um 
curto cordao de instru<;6es que dizem a 
maquina onde comeijar o desempenho, 
e com que cor. A primeira insirutao, 
BM.significa "mover em branco", co- 
locando a "caneta" que fara o desenho 
na posifao onde desejamos inicia-lo. Sc 
nao houvesse a letra B. a "caneta" tra- 
garia uma reta. enquanto se dirigisse ao 



ponto de partida, que no nosso caso e 
23,96 (note que as coordenadas nao es- 
tao entre parenteses, como em outros 
comandos grdficos). A instru^ao final 
do cordao seleciona a cor preta (Ci no 
MSX c CO no TRS-Color), 

A linha 50 cometa a tragar o comor- 
no. Embora pare<;a confuso, o cordao 
da instrugao DRAW e na realidade mui- 
to simples, consistindo de uma serie de 
diregoes e disiancias. As leiras contro- 
iam a diregao da linha e os niimeros, sua 
distancia em pixels. Se nao houver um 
niJmero apos uma diregao, o movimen- 
to sera de apenas um pixel. 

E.sisiem 8 diregoes: U, para cima (up, 
em ingles); R, direita {right); D, para 
baiso (down); I., esquerda (tefl); E, pa- 
ra cima a direita (45 graus); F, para bai- 



xo a direita (135 graus); C, para baixo 
a esquerda (225 graus) e H, para cima 
a esquerda (315 graus). 

Se acompanharmos os comandos do 
cordao da linha 50, teremos: k direita 28 
pixels, a 45 graus 2 pixels, para cima 
3 pixels, e assim por diante. Para se 
exerciiar, tente transformar o cordao em 
movimentos de lapis, em papel mili- 
metrado, 

As linhas 60 a 80 contem cordoes pa- 
recidos que completam o contorno do 
navio. Pode-se utilizar apenas um cor- 
dao longo em vez de todas essas linhas, 
mas um niimero grande de instrugoes 
tende a tornar mais dificil a manipula- 
gao e a corregao dos dados. 

Finaltzando o desenho, a linha 90 
pinta de preto a silhueta tragada na tela. 
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COMO DESENHAR LETRAS 



Uma das limitagoes do TRS-Color 
em relagao aos programas graficos e sua 
incapacidade de exibir textos na tela de 
alta resolucao (isto nao vale para o 
MSX). Nao se porte, por exemplo, im- 
primir uma contagem de pontos em um 
jogo que utiliza grificos (por essa razao, 
o jogo da pdgina 62 e todo exibtdo em 
tela de textos). 

Para contornar o problema, voce de- 
ve projetar seus pr6prios caracteres uti- 
iizando o comando DRAW. Digite e ro- 
de este programa e voce vera a interjei- 
93o AL6! ser tragada: 

D 

10 PMODE 3.1 

20 PCLS 

30 SCREEN 1 , 

40 OIS-"D4R3U4L3BaSD4R3BR2U4B3D 

2NL3D2BR2U1BU1U2" 

50 DRAW "BM110,SO;C3S8''+OI$ 

60 GOTO 60 
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30 SCREEN 2 

40 OIS-"D4B3U4L3BR6D4R3BB2U4H3D 

2NL3D2BR2U1BU1U2'' 

50 DRAW ''BMX10,50;C3S8'+OIS 

60 GOTO 60 

No TRS, a mensagem e tracada em 
PMODE3, uma modalidade de quatro 
cores. No MSX, em SCREEN 2, a tela 
de alta re5olu(?ao (lembre-se de que o 
MSX tern outras maneiras de escrever 
textos nesta tela), 

A linha 40 mostra mais uma caracte- 
ristica do comando DRAW. Corao e!e 
opera em um cordao de instru(poes, vo- 
ce podera definir variaveis e cham^-las 
mais larde com um comando DRAW no 
programa. 

As instru?6es em OlS dizem ao com- 
putador como tra^ar as letras para for- 
mar AL6!. Tente transform^-!as em 
movimentos de Idpis, como fez anterior- 
mente, lembrando-se de que B significa 
espa^o em branco; assim, nenhuma li- 
nha aparecera no desenho quando uma 
instru^ao for precedida de B. 

Se voce quiser exibir em telas de gra- 
ficos outras palavras ou expressoes — 
QUE AZAR! ou BEM FEITO!. por 
exemplo — podera estabelecer mais cor- 
does. tais como QA$ e BFS. Tente ela- 
borar as instrufoes para uma dessas ex- 
pressoes em papel graflco. Uma vez que 
tenha definido os cordoes, voce poderd 
chami-los de volta sempre que forem 
necessaries ao programa. 

O ALO! e tragado pela linha 50. A 



posigao inicial & 110,50 e a cor € de nu- 

mero 3; a palavra seri impressa em ta- 
manho 8 (escala dupla). O S pode ser se- 
guido por um numero de 1 a 62, no TRS, 
e de 1 a 255, no MSX. O I ^ um quarto 
do tamanho, o 4 e o tamanho normal 
(a escala que se obtem se nao houver ins- 
trugao) e o 8 e o tamanho duplo. 

Como demonstra a linha 50, e possi- 
vel unir cordoes de instru<;des DRAW 
como quaisquer outros cordoes. Se vo- 
ce quiser chamar cordoes como QAS ou 
BF$, podera faze-lo do mesmo modo 
que na linha 50. Movimente para o pon- 
to de partida utilizando BM e, entao, es- 
tabele^a a cor por Ceo tamanho por S. 



MENSAGENS MAIS LONGAS 



E muilo trabalhoso definir cordoes 
para cada mensagem quando se quer exi- 
bir na tela um grande numero delas. 

Para simplificar a tarefa, defina to- 
dos OS caracteres que ira utHizar, digitan- 
do um programa como o que se segue: 



9050 NEXT 
9060 RETURN 
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10 PMODE 3,1 
20 DIM LE${26) 
30 PCLS 

40 FOR K-0 TO 26 
45 READ LE$ (K) : NEXT 
50 FOR K-0 TO 9 
55 READ NU$ (K) :NEXT 
60 DATA BR2,ND4R3D2NL3ND2BE2.ND 
4R3DGNL2FDNL3BU4BR2,NR3D4B3BU4B 
R2,ND4R2FD2GL2BE4BR,NR3D2NR2D2R 
3eU4BR2 

70 DATA NR3D2NR2D2BE4BR,NR3D4R3 
U2LBE2BR , D4BH3U2NL3U2BR2 , ND4BR2 
,BD4REU3L2R3BR2.D2ND2NF2E2BR2 
80 DATA D4R3BU4BR2.ND4FREND4BR2 
,ND4F3DU4BR2.NR3D4R3U4BR2.ND4R3 
D2NL3BE2 , NR3D4R3NHU4BR2 
90 DATA ND4R3D2L2F2BU4BR2,BD4R3 
U2L3U2H3Ba2 , RND4HBR2 , D4R2U4flR2 , 
D3FEU3BR2 , D4EFi;4BR2 
100 DATA DF2DBL2UE2UBR2,DFND2EU 
BR2,R3G3DH3BU4BH2" 
110 DATA NR2D4R2U4BR2,BDEND4BR2 
,R2D2L2D2R2BU4BH2,NR2BD2NR2BD2H 
2U4BR2,D2R2D2U4BR2,NH2D2B2D2L2B 
E4,D4R2U2L2BE2BH2.R2ND4BR2,NR2D 
4R2U2NL2U2BR2,NR2D2R2D2U4BR2 
120 SCREEN 1,0 
130 A$-''TESTANDO0123456789" 
140 DRAW "BM60,50C3Se" 
150 GOSUB 9000 
160 GOTO 160 
9000 FOR K-1 TO LEfJ{AS) 
9010 BS-mD$(AS,K,l) 
9020 IF B$>-"0" AND BS<-"9" THE 
N DBAW NU| (UAL (BS) ): GOTO 9050 
90 30 IF BS-" ' THEN N-0 ELSE N- 
ASC(BS) -64 
9040 DRAW LE$CN> 



20 DIM LE$C26) 

30 CLS 

40 FOR K-0 TO 26 

45 READ LE$(K) : NEXT 

50 FOR K-0 TC 9 

55 READ NUS(K) :NEXT 

60 DATA BR2.ND4R3D2NL3ND2B£2,ND 

4B3DGNL2FDNL3BU4BR2.NR3D4R3BU4B 

R2 , ND4R2FD2GL2BE4BR , NR3D2NR2D2R 

38U4BR2 

70 DATA NR3D2NR2D2BE4BR.NR3D4R3 

U2LBE2eR.D4BB3lJ2NL3U2BR2,ND4BR2 

,BD4REU3L2R3BR2.D2ND2NF2E2BR2 

60 DATA D4R3BU4BB2,ND4FREND4BRZ 

, ND4F 3DU4BH2 , NR3D4R3U4BH2 , ND4fl3 

D2NL3BE2 , NR3D4a3NHU4BH2 

90 DATA ND4R3D2L2F2BU4BR2.BD4H3 

U2L3U2R3BR2 , RND4BBR2 ■ D4R2U4BR2 . 

D3FEU3BR2 , D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2,DFND2EU 

BR2.R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2,BDEND4BR2 

.R2D2L2D2R2BU4BR2,NR2BD2NR2BD2R 

2U4BR2,D2R2D2U4BR2,NR2D2R2D2L2B 

E4,D4B2U2L2BE2BR2,R2MD4flR2,NR2D 

4R2U2HL2U2BR2 , NR2D2R2D2U4BB2 

120 SCREEN 2 

130 A$-"TESTANDO0123456789" 

140 DRAW "BMeO.SOCISS" 

150 GOSUB 9000 

160 GOTO 160 

9000 FOR K-1 TO LEN(AS) 

9010 B$-MrDS<AS,K.l) 

9020 IF BS>-"0" AND BS<-'*9" THE 

N DRAW NUS(VAL(BSn :G0T0 9050 

9030 IF BS-" ' THEN N-0 ELSE N- 

ASC(BS)-64 

9040 DRAW LE$ CN) 

9050 NEXT 

9060 RETURN 

O con junto de caracteres ^ letras de 
A a Z e algarismos de a 9 — esta con- 
tido nas linhas DATA de 60 a 110. O 
conteiido destas ^ transferido para duas 
variaveis alfanumericas — LES e NU$ 
— pelas linhas 40 a 55. 

Para utilizar esse conjunto e necessa- 
rio definir a mensagem a ser escrita, as- 
.sim como a posigao inicial, a cor e o ta- 
manho. A linha 130 coloca em A$ uma 
mensagem de teste — TESTANDO0123 
4S6789 — que pode ser substituida por 
qualquer outra de sua cria9ao. A linha 
140 estabelece a posigao inicial, a cor e 
o tamanho. Com a mensagem e suas ca- 
racteristicas definidas, podemos dizer a 
maquina que desenhe a mensagem. A 
sub-rotina de impressao — que comega 
na linha 9000 — examina cada caractere 
em A$, um por vez, acha as instruipoes 
apropriadas nos conjuntos (veja progra- 
mai^ao de jogos, na pdgina 101) e, em 
seguida, desenha o caractere na tela, 



Modificando A$ na linha 130 e, se 
necessario, a posigao inicial na linha 
140, podemos deserihar a mensagem que 
quisermos, Como a parte do programa 
que trafa as letras ^ uma sub-rotina, te- 
remos quantas mensagens desejarmos, 
mas devemos coloci-las sempre em A$. 

O procedimento sera muito litil, so- 
bretudo se tivermos uma s^rie de men- 
sagens para exibir em diversos pontos da 
tela durante urn jogo. 

Comece seus programas na linha 120, 
ou seja, acima das iinhas DATA; lem- 
bre-se, porem, de que as Iinhas DIM, 
CLEAR ou PCLEAR em geral precisam 
ficar no im'cto. Quando quiser escrever 
uma mensagem, estabele^a cordoes com 
as palavras escolhidas apenas no ponto 
em que elas forem necessirias ao progra- 
ma. Em seguida, acrescente o DRAW, 
como na linha 140, e chame a sub-rotina 
de impressao com GOSUB WOO. 



E FINALMENTE. 



Uma vez elaboradas as instrugoes pa- 
ra desenhar um perfil, podemos posicio- 
na-lo em qualquer direcao, ou mesmo 
de cabeifa para baixo. Basta, para isso, 
incluir uma nova instru<?ao no cordio: 
A, seguida de um valor de a 3. 

Afl posiciona o desenho — no nosso 
exemplo, a casa — a graus, ou seja, 
na vertical. Al desenha a casa deitada 
sobre seu lado direito — a 90 graus. A2, 
de cabega para baixo ^ a 180 graus. A3, 
finalmente, tra^'a a casa deitada sobre 
seu lado esqucrdo — a 270 graus. 

O controle da direpao em que a ima- 
gem e tra^ada permits obter o mesmo 
desenho, de quatro maneiras diferentes. 



a partir de um linico conjunto de instru- 
Voes, Nao sera necessario, portanto, in- 
formar ao computador como desenhar 
cada versao. 

Para ver como esse recurso funciona, 
digite e rode o programa a seguir. 

a 

10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 SS-'«R16E6F4U4B2D6F2D12L6U6L 

4D6L6U12'' 

50 FOR K-1 TO 20 

60 D-HND(200)+27:E-RND(140)+2?: 

C-RND(3)+1 :A-RND{4)-1 

70 DRAW-BM''+STR9:CD)+",-+STR3(E) 

+ "C''+STRS(C) + "A"+STa${A)+"XSSi" 

BO NEXT K 

90 GOTO 90 



fffi 



3 SCREEN 2 

40 SS-"NR16E8F4U4R2D6F2D12L6U6L 

4D6L6U12" 

50 FOR K-1 TO 20 

60 D-INT(RND(1)*200)+28:E-INT(R 

ND(1)*140)+28:C-INT(RND(1)*15)+ 

1:A-INTCRND{1)*4) 

70 DRAW -BM"+STRS(D)+","+STB${E 

)+-C"+STRSCC)+'*A"+STRS(A)+"XS$; 

80 NEXT K 
90 GOTO 90 

Serao desenhadas 20 casas, todas 
iguais, exceto na cor e na orientagao. 

O formato das casas e definido na li- 
nha 40. Na linha 60, quatro ntimeros 
aleat6rios sao escolhidos: D e E sao as 
coordenadas da posi^ao inicial, C e acor. 
e A, a direijao da imagem. 

A linha 70 desenha a casa, acrescen- 




tando ao cordao todos os parametros 
gerados na linha 60. A fungao STR$ 
convene as variiveis numericas em cor- 
does — na verdade, coloca o valor des- 
tas variaveis entre aspas. Por exemplo, 
se D = 2, entao STRS = "2". 

A linha 70 move, entao, a "caneta" 
para uma posicao qualquer e, usando 
uma cor aleatdrja, desenha, na dire^ao 
escolhida ao acaso, as instrufoes conti- 
das em S$. O X antes de S$ significa 
"execute as instru(;6es contidas em S$" 
e permite a adiijao de um cordao a ou- 
tro durante o desenho, sem a necessida- 
de de utjlizar o sinal " + ". 

O emprego do X apresenta a vanta- 
gem de economizar a "membria de cor- 
does" da mdquina — que e limitada — , 
pois permite unir cordoes sem criar no- 
vos cordoes. O uso do " + ", ao contra- 
rio, cria um novo cordao, que vai ocu- 
par boa parte da mem6rta que estamos 
querendo economizar. 




O Spectrum usa arcos e circulos para desenhar um campo de golFe. 



E possival coiocar textos na tela gra- 
fica do Apple 117 

Infelizmente, os microcomputado- 
res cornpati'veis com a linha Apple II 
nao permiiem misturar texto e gr^ficos 
na mesma tela. Essa limitaeao reduz 
bastante o campo de agao do iniciante 
que quer desenvolver jogos ou outros 
tipos de programas gr^ficos que preci- 
sam de alguma esp^cie de tftulo ou 
iderttiticagao na tela. 

Como OS computadores da linha 
MSX e TRS-Color, os micros da linha 
Apple II tamb^m dispoem de um co- 
mando DRAW. Por6m, se o objetivo 
deste recufso 6 semelhante em todos 
OS computadores mencionados, a filo 
Sofia de sua utiliza^So ^ bastante dife 
rente, quando se trata do Apple. 

O funcionamento do comando 
DRAW do Apple baseia-se nas tabelas 
de forma [shape tables), que residem 
em uma certa parte da mem6ria e que 
determinam um verdadeiro "mapa" de 
movimentagao do cursor grSlico, com 
base em numeros binirios que tdenti- 
ficam quais os bits que devem ficar 
aceaos ou apagados na tela. A especi- 
ficagao de tabelas de forma ser^ expli- 
cada em um ertigo futuro. Sasta saber, 
por enquanto, que letras e numeros de 
qualquer tamanho podem ser desenha- 
dos na tela, um a um, com o comando 
DRAW. 



ASSEMBLER 
MRAOAPPLE 



O Assembler do Apple e bem mais 
curto do que os programas correspon- 
dentes para o Spectrum, o MSX e o 
TRS-Color. isto ocorre porque seu mi- 
croprocessador — o 6502 — tern bem 
menos instru(;oes que o Z-80 e o 6809, os 
mkroprocessadores das outras maquinas. 

Este programa nao precisard traba- 
Ihar com a infinidade de mnemonicos do 
Z-80, nem tera de calcular os pds-bytes 
do 6809. 

Devido ao seu tamanho, ele e mais 
ripido — o que nao significa, porem, 
que sua veiocidade seja comparavei a 
dos programas escritos em cddigo. Ele 
levara alguns minutos para traduztr um 
longo programa em Assembly. 

E bom lembrar que o TK-2000 ja vem 
com um mini-Assembler embutido. 

a] 



ASSEMBLER 



,K2f77) rHS 
:RS - CHB 



,ZS(100] 
76: REA 
IF KS(I 

.AMD, 41 , 

, 176,BEQ 



10 HOME 

20 DIM KS(77) ,K1(77) 
- "0123456789ABCDEF- 

S (13) 

30 DIM TS(200) ,BR(100) 

40 P - 0: FOR II - 1 TO 

D K5(I1) .Kidl) .K2(II) : 

1) < > "«" THEN NEXT 

50 DATA ADCIOS.IOI, 

37,ASL, ,6,BCC, ,144. BOS, 

. .240. BIT. .36.BMI, .48 

60 DATA BRK. , ,BYT. ,-256 

70 DATA BNE, .ZOS.BPL. ,16.BVC 

, ,80,BVS, ,H2.CLC.24. .CLD,216, , 

CLI.ee. .CLU,1B4 , 

80 DATA CMP, 201, 197, CPX, 224. 2 

28. CPY, 192, 196. DEC, ,l9e,DEX,202 

, .DEY,136, .EOR,7 3.67 

90 DATA INC, ,2 30.INX.232, ,INY 

.200. .JMP, ,68.JSR. .24 

lOO DATA LDA,169,165. 

LDX.162,166,LDY 

110 DATA 160,164,LSR. ,70 

NOP, ,234 , . , .ORA,9,5, 

PHA.72. .PLA.104. . PLP 

120 DATA 40, .PHP.B, i , . , , , ,BOL 

. . 38.ROR. ,102 

130 DATA fiTI.64, ,RTS.96, .SBC 

,233, 229, SEC. 56. ,SED,24fl, .SEI.l 

20, ,STA, ,133,STX, ,134 

140 DATA STY. ,132. TAX, 170, ,TA 

Y,l6e, ,TSX,186. .TXA,l3e. ,TXS,15 
|4,.TYA.152, 
|150 DATA HOR, ,-256,*, , 



160 HOME r HTAB 16- VTAB 1: IN 
VERSE : PRINT "MENU": NORMAL : 
PRINT : PRINT : PRINT 
170 PRINT TAB{ lO);"! - LEH 
DISCO": PRINT : PRINT TAB t 10 
);"2 ~ GRAVAR NO DISCO": PRINT 
: PRINT TAflt 10); "3 - MONTAR" 
180 PRINT : PRINT TAB ( 10) f '4 

- EDITAR LIMHA" : PRINT : PRINT 
TAB( 10); "5 - APAGAR LINHA": 

PRINT : PRINT TAB t 10); "6 - LI 

STAR" 

190 PRINT : PRINT TAB ( 10) i "7 

- SAIDA" : PRINT : PRINT : PRIN 
T TAB( 10) ;-SELECIONE A OPCAO 

ir , 

p 

200 GET A$: IF VAL (AS) < 1 

H VAL (AS) > 7 THEM 200 

210 J J - VAL {AS) : HOME 

220 ON JJ GOSUB lOBO , 1100 , 250, 

1120,1200,1230.1300: PRINT ; PR 

INT -QUALOUER TECLA PARA CONTIN 

UAR- 

230 GET A3: IF A3 - '" THEN 23 



240 GOTO 160 

25 KO - 0:K9 - : PS - 0:P0 ■ 

260 PS - PS + 1: ir P3 < - 3 T 

HEN K - K0:P - PO : PRINT "ETAPA 

":PS: GOTO 280 
270 PO - P; RETURN 
280 GOSUB 980 

290 GOSUB 910:OPS - IS: IF LE 
FTS (0P3.1) - -*" AND PS • 3 TH 
EN PRINT OPS 

300 IF LEFTS tOPS.l) - *«" TH 
EN 2B0 

310 IF OPS ■ "END" AND PS = 3 
THEN PRINT : PRINT " FIM. ENDE 
RECO FINAL: ";P - 1 
320 IF OPS - 'END- THEN 260 
330 IF OPS < > -ORG" AND OPS 
< > -PI-- THEN 370 
340 GOSUB 910:3-0: IF LEFTS 

(13.1) =" -*" THEN S - P:I3 « 
RIGHTS (IS. LEN (IS) - 1) 
350 P - UAL (13) + S: IF PS - 
3 THEN PRINT " OHG";P 
360 GOTO 280 

370 IF P - THEN PRINT 'FALT 
A ORG": RETURN 
380 IF OPS < > "SPt-" AND OPS 

< > "TXT" THEM 4 20 
390 GOSUB 910: IF PS » 3 THEN 

PRINT " TXT" i 13: TAB ( 20); 
400 FOR J • 2 TO LEN (13): BY 
- ASC ( MIDS (13 + IS.J.D) : I 
F J > - LEN (IS) THEN BY - 13 
410 GOSUB 870; NEXT J: GOTO Z8 

420 IF LEN (OPS) < > 3 THEN 

FOR I » 1 TO 1 T GOTO 440 



Traduzir mnemdnicos Assembly para 
c6digo de m^Quina 6 uma tarefa 
extremamente cansativa. Deixe o Apple 
trabalhar por voc^: ele o fard 
com rapidez e facilidade, 



430 FOR I - 1 + 3 • { ASC (OPS 

) - 65) TO 76: IF OPS - KSd) T 

HEN 490 

440 NEXT : IF PS - 3 THEN PRI 

NT OPS 

450 IF LEFTS tlS.l) - "." THE 

N IS - RIGHTS CIS. LEN (IS) - 

IJ 

460 GOSUB 1010:RR(Q2) - P: IF 

IS - '" THEN 290 

470 IF PS - 3 THEN PRINT "(LI 

MHA NAO RECONHECIDA)" 

480 GOTO 280 

490 ADS - '#0-rR - 0: IF K2(I) 

< > THEN GOSUB 910: ADS - IS 

:0P - K2{I) 

500 IF PS - 3 THEN PRINT " ' ; 

OPSj : IF K2{I) C > THEM PRI 

NT - -;ADS: 

510 IF LEFTS (ADS.l) - "I" TH 

EN AOS - RIGHTS (ADS, LEN {AD3 

) - 1) :0P - Kid) 

520 IF RIGHTS (ADS.l) < > ") 

- THEN 530 

525 OP - OP - 20: ADS - MIDS (A 
DS,2. LEN CADS) -2): IF OP - 4 
8 THEN OP - 100 

530 IF RIGHTS (ADS, 2) - ";X" 
THEN OP - OP + 16: ADS - LEFTS 
(ADS, LEN (ADS) - 2) 
540 IF A03 - "A- THEN ADS'O":© 
P - OP + 4 

550 IF RIGHTS (ADS, 2) < > ": 
y- THEN 580 

560 OP - OP + 16: ADS - LEFTS ( 

ADS, LEN (AD3) - 2) : IF RIGHTS 

(0P3.1) < > "X" THEN OP - OP 

- 4:B - 65536 

570 IF RIGHTS (ADS.i) - ')" T 

HEN ADS - MIDS (ADS. 2, LEN (AO 

S) - Z) :H - R - 65536 

580 3-1 

590 IF ADS - "" THEN 770 

600 X3 - LEFTS CADS.l): IF LE 

N (ADS) • 1 THEN BDS - "": GOTO 

610 
605 BDS - BIGHTS (ADS, LEN (AD 
3) - 1) 
610 IF XS - -•" THEM B - R + P 

* 3: ADS " BDS: GOTO 580 
620 IF XS - *+" THEN ADS ■ BDS 
: GOTO 590 

630 IF XS - *-- THEN ADS - BDS 
:S - - 3; GOTO 590 
640 Q • 

650 IF (XS < > "3" AMD XS < 
> "L") OR BDS < "0- OH BDS > - 

"G" THEN 690 
660 FOR C2 - TO 15: IF LEFT 
S (BDS.l) < > MIDS (ttS.liZ + 1 
.1) THEN 680 
670 - Q * 16 + Q2: IF LEN (B 





■ TRADUCAO DE MNEMONICOS 

ASSEMBLY PARA CODIGO 

HEXADECIMAL 


■ MANIPULACAO 


DE ROTULOS 


■ TRANSFERENCIADOPROGRAMA 


■ CALCULO DE SALTOS 

E DESVIOS 


EM CODIGO 


PARA A MEMORIA 




^^^H^«H 


- 1) * 4 
772 HP - R - P - 2tHP ■ ABS ( 
ABS ((RP < 0) * INT (BP / 256) 
) * 256 - ABS CRP - (RP > - 2 
56) « 256 « INT (HP / 256))) 






775 IF LEFTS (0P$,1) - "B" AN 




D (0 - PP AND OP > 0) THEN R - 

RP 




^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^L 1 "'^^^^^^^^^ !^^^^^^^^L 


7B0 IF LEFTS COPS.l) = "J" OR 
LEFTS (0P3.1) = "U" THEN fi - 






R + 65536 




^^^HP^ ^^^^I^HL^^^^.t-^'^^^i^^BPt^^'*'''^'^^^! 


790 IF R > 255 THEN OP - OP + 

8 

800 K2 - K2(I):PA - ABS ( ABS 








^Kfi^^^^^^^^H^ ' fl 


{(OP < 0) « INT (OP / 16)) * 1 




^W^jH^^^^^^^^V u S 


6 - ABS (OP - (OP > - 16) * 1 




^m^^^^m^^-^ m 


6 * INT (OP / 16) ) ) 




805 IF PA - 10 THEN K2 - 




^^BaSl^^^^^^^^^^K ^1 


810 IF PS - 3 THEN PRINT TAB 




^^^^^H tvVl^^^^^^^^^^^^^^^^^^^^B' 


C 16);:Blf - P / 256 r GOSUB 890: 




^^^^H^ A A^^^^^^^^^^^^^^^^K 


BY - P - 32 768: GOSUB 890: GOSU 






B 850 




^^^^Bh^^^^^^^^^^^^^^HP 


820 IF OP > - THEN BY - OP 




^■SISv^^^^^^^ ,-ij 


/ 2S6: GOSUB 870: BY - OP: GOSUB 




B@^l ^^^HH Wk 


880 
830 IF K2 - THEN 280 






840 G03UB 850: BY - R - 256 * 




INT (R / 2 56): GOSUB 880: BY - B 




^^B l^^^^P J 


/ 256: GOSUB 670: GOTO 260 




H^ -i^vv ^ 


850 IF PS - 3 THEN PRINT " "j 






860 RETURN 




^^K v.v^CN S 


870 IF INT (BY) < - THEN 




^^m '^0^^'^^*^ H 


RETURN 




880 P - P -^ liYY - ABS { ABS ( 




^^^K ^^k 


(BY < 0) * INT {BY / 256)) * 2 






56 - ABS (BY - {BY > - 256) * 




256 * INT (BY / 256))): IF PS 




^H ^X^^^i^ n 


- 3 THEN POKE P - l.YY 






890 BY - ABS ( ABS ((BY < 0) « 




INT (BY / 256)) * 256 - ABS 






(BY - (BY > - 256) * 256 » IN 

T CI / 256})) 

895 YY - ABS ( ABS {(BY < 0) * 






INT (BY / 16)) * 16 - ABS (B 




Y - (BY > - 16) « 16 « INT (B 






Y / 16))): IF PS - 3 THEN PRIN 




^ _- ; 4. ' .- ^ »^^ ^ "Kf^^Si^^^^ --.'' ' t'j^-'^UM^^^^^^^^^^^^^^^B 


T MID3 CHS. BY / 16 + 1,1): MID 




^^^^^^^^^^^^^^^^^^^^^^^H^^^^^K^ --■>• T'^'i^^^^^^^^^^^^^^^^^^^^^^^H^H 


3 (H3.YY + 1.1) : 




900 RETURN 


DS) - I THEM BD3 - "": GOTO 660 730 IF ADS < "0* OB ADS > "9- 


910 IF K > N THEN IS - "END": 


675 BDS - RIGHTS (BDS, LEN <BD THEK 7 SO 


RETURN 


S) - !)• GOTO 660 740 Q - Q * 10 + ASC (ADS) - 4 


920 Kl - K9 * 1: IF K9 > - LE 


6S0 MEXT :B - B + Q « 3rAD3 "■ B: IF LEN <ADS} - 1 THEN ADS - 


N (T3(K)) THEN IS - "/FALTANDO/ 


BDS: GOTO 5B0 "": GOTO 730 


' : RETURN 


690 IF X$ < -A" OB XS > "2" TH 745 AD* - RIGHTS (ADS. LEN (AD 


930 K9 - Kl: IF MIDS (T3(K),Kl 


EN 720 S) - 11 : GOTO 730 


,1) - - " THEN 920 


700 1$ - ADS; GOSUB 1010: IF IS 750 R - B + Q * S: GOTO 580 


940 IF K9 > LEN (T3(K)) THEN 


< > •- THEN GOSUB 1050 760 IF PS - 3 THEN PRINT "(EN 


IS - MIDS (T3(K).K1.K9 - Kl): 


710 R - R + RB{Q2) « S:ADS - IS DEBECAMENTO INVALIDO) ' ; 


RETURN 


: GOTO 580 7 70 PP - (OP - ( ABS (OP) > - 


950 IF MIDS (TS(K),K9.1) < > 


720 IF XS < "O" OR XS > "S" TH B) • 8 • INT (OP / 8) > • 4) 


' ' THEN K9 - tC9 -«- 1 : GOTO 940 ^^H 


EN R - 0: GOTO 760 * 4 + (OP > - - 4 AND OP < - 


960 IS - MID3 (TS(K),K1,K9 - K ^^H 


1 



IIIIIIIHIHr '0 cOaeoKMawNA 10 THHIIIIIIHIII 



1) 

970 RETURN 

980 IF K9 < - LEN (TS(9)) AN 
D PS ' 3 THEN IF LEN {T3(K)} 
> K9 - 1 THEN PRINT HIGHT3 (T 
3(K) . LEN (T3(K)) - K9 + 1) ; 
990 K - K + 1:K9 - 0: IF PS * 3 

THEN PRINT 
1000 RETUPN 
1010 X3 - *• 
.1020 IF 13 < -A" OR 13 > - "I 

- THEN 1040 

1030 XS - X9 + LEFTS (IS.l): I 
F LEN CIS) - 1 THEN IS - "" : O 
OTO 1020 
1035 13 - BIGHTS (IS, LEN (IS) 

- 1) r GOTO 1020 

1040 IF IS < > "* THEN RETURN 
1050 FOB Q2 - 1 TO VV: IF XS - 

23<02) THEN 1070 
1060 NEXT :W - W + 1:ZS{VU) 

- X3:Q2 - W;HR(UV) - 32768 
1070 RETURN 

1080 INPUT 'NOME DO ARQUIVO '; 
ARS:DS - "-: REM CTRL-D 
1090 PRINT D3:'0PEN";AB3: PHIN 
T DS:*REM)"iAB3: INPUT N; FOR J 

- 1 TO N: INPUT TS(J)r NEXT : 
PRINT 03: 'CLOSE" ;ARS: RETURN 
1100 INPUT -NOME DO ARQUIVO ' : 
Aft3:D$ - •*: REM CTRL-D 

1110 PRINT DS;"OPEN* jAHS: PRIN 
T DSj'WRITE" iAH5: PRINT N: FOR 
J - 1 TO N: PRINT T3(J): NEXT : 

PRINT 03: 'CLOSE* ;AH3: RETURN 
1120 K - 0: INPUT "QUAL O NUMER 
DA LINHA ' ;K: HOME 
1140 IPS - ■": PRINT K;: INPUT 
IP3: IF IPS - ■" THEN RETURN 
1150 K2 - K / 10: IF K2 > N THE 
NK2-N+1:N-N+1 
1160 IF K2 < .1 THEN K2 - . 1 
1170 IF K2 - INT {K2J THEN 11 

90 
lliO K2 - INT CK2) + 1: FOR K3 

- N TO K2 STEP - 1:TS(K3 + 1) 

- TS(K3) : NEXT :N - N 4 1 
1190 T3(K2> " IP3:K - K + 10: G 
OTO 1140 

1200 K - 0: INPUT 'QUAL NUMER 
DA LINMA *;K:K2 - K / 10 
1210 IF K2 > N OH K2 < 1 OH K2 

>, INT (K2) THEN RETURN 
1220 FOR K3 - K2 TO N:TS{K3) - 

TS(K3 + 1): NEXT :N - N - 1 : R 
ETURN 

1230 IF M - THEN RETURN 
1240 K • 0:K2 - 0; HOME : INPUT 

'QUAL A PHIMEIRA E A ULTIMA LI 
NBA -iK,K2:Kl » K / 10;K2 - K2 
/ 10 

1250 IF K2 > N THEN K2 - N 
1260 IF Kl < 1 THEN Kl - 1 
1270 HOKE : FOR K3 - Kl TO K2: 

PRINT - -;K3 * 10;' 'jTSCKS): 
NEXT : RETURN 
1300 END 

Nas linhas 1080 e 1 100, a vari^vd D$ 

deve conter o caractere produzido pelas 

I teclas <CTRL> e <D> pressionadas 

ao mesmo tempo. DS, portanto, nao es- 



td vazia. CTRL + D e um caractere de 
controle para use do disco. 



COMO FUNCtONA PROGRAMA 



Uma vez digitado o programa, rode- 
o. Normalmente, ele e colocado na area 
Hvre da memoria que vai de 300 ate 3EF, 
em hexa, ou de 768 ate 1007, em deci- 
mal. Se quisermos coloca-lo em c6digo 
em outro local, devemos proteger esta 
drea da memoria (veja pigina 88). 

Depois que o programa for rodado, 
surgira um menu na tela. Para entrar um 
programa em Assembly, deve-se esco- 
iher a op?ao 4, que diz "EDITAR LI- 
NHA". O Assembler usa linhas BASIC 
com mjmeros multiples de 10. 

A primeira linha — numero 10 — de- 
ve comer o endere?o inicial do progra- 
ma em cddigo. Ela ficara mais ou me- 
mos como esta; 

10 org SOO 

... determinando que o programa em 
codigo seja colocado na memoria a par- 
tir deste enderego. Se tivermos protegi- 
do oulra ^rea da memoria para colocar 
nosso programa em eddigo, a origem 
deve ser o endereco inicial daquela por- 
cao da mem6ria. 

Depois da primeira linha, os nume- 
ros de linha multiplos de dez aparecem 
automaticamente, toda vez que se pres- 
siona a tecia RETURN. Cada linha de- 
ve conter apenas um mnemonico e seus 
operandos. Caso se pretenda inserir uma 
linha entre duas ja existentes, utiliza-se 
um numero de linha intermediario — e 
o programa seencarrega da insercao. Os 
rdtulos, ou labels — que indicam os lo- 
cals para onde o programa sera desvia- 
do — , devem ficar no inicio da linha, 
precedidos de um ponto. Os roiulos pre- 
cisam ter mais de uma Ictra e nao po- 
dem ser iguais a nenhum mnemonico. 
Sao empregados mnemonicos padrao do 
6502, com uma excetjao: o uso do 
ponto e vfrgula no lugar da virgyla. Is- 
to e necessario porque o programa uti- 
liza a instruijao LNPUT para receber as 
linhas. Uma virgula provocaria a men- 
sagem de "EXTRA lGNORADO*\ 

Caso deseje eviiar a iradugao de uma 
linha, coloque um asterisco antes dela. 
Ao pressionar RETURN, surgira a prd- 
xima linha, mas se a mesma tecIa for 
pressionada novamente, sem que qual- 
quer coisa lenha sido escrita na linha, 
o programa retornara ao menu. 

O menu fornece a op(;ao de listar o 
programa. Se outra tecla for pressiona- 
da, volta-se ao menu. Podemos tambem 
optar por apagar uma linha, ou simples- 



meme escrever a nova, com o mesmo 

numero no modo de edi?ao. 

Quando estivermos satisfeitos com o 
programa em Assembly que digitamos. 
podemos acionar a opinio de "monta- 
gem" do programa. O Apple mostrari, 
entao, os mnemonicos acompanhados 
dos c6digos hexa correspondcntes, ao 
mesmo tempo em que coloca estes c6- 
digos na memoria. 

Pode-se gravar o Assembler em fita 
ou disco, como qualquer outro progra- 
ma (veja p^gina 53). Os mnemonicos — 
ou programa fonte — devem ser grava- 
dos e lidos em disco usando as op^oes 
correspondcntes. 

O programa em codigo, por sua vez, 
pode ser gravado em fita ou disco utili- 
zando-se o monitor do Apple, ou por 
meio do comando BSAVE, 

Para roda-lo, deve-se sair do Assem- 
bler, por meio da op^ao "SAIDA", e 
digitar: 

CALL 800 




O quQ fazer quando um programa 
longo — como este Assembler — nfio 
funciona depois de digitado? 

Mesmo o programador mais expe- 
riente tem problemas ao digitar progra- 
mas longos. Sempre se comete algum 
erro, e ^ muito dificil localizS-lo, 

A maioria dos erros provoca uma 
mensagem que orienta o programador 
na direpao correta (veja pSgina T41K 
Mas programas longos seguem cami- 
nhos tortuosos, entram em (apos e fa- 
zem saftos, de modo que o nijmero de 
linha indicado na mensagem de erro ai- 
gumas vezes nio ajuda em nada. 

For tudo issD, ^ necessdrio contar 
com uma fungao de rastreamento, co- 
mo a fungao TRACE, dtsponfvei no Ap- 
ple. Com ela podemos vef o numero da 
linha que est^ sendo executada. o que 
torna mais fdcil diagnosticar os erros, 
Para utiliz^-la, basta digitar TRACE no 
modo imediato, isto S, sem riumero de 
Sinha na frente. Depois. rode o progra- 
ma e veja o rastreamento em apao. A 
funpSo 6 desativada por NONTRACE. 

Assim, nao descarte o programa se 
ele nao (uncionar na primeira tentati- 
va. Procure pelos erros mais comuns. 
Se ocorrer um "OUT OF DATA", por 
exempio, verifique com atenpio suas 
linhas DATA. Se voc§ tiver esquecido 
um numero, ou mesmo uma vfrgula, o 
programa nao funcionarS. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 
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progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



II IIIIHIIIBNO PROXIMO NUMERO BlllHIMIl 

PROGRAMAQAO BASIC 

Aprenda a empregar as cadeias de caracteres. Elas serao 
uteis em quase todo tipo de programa 

CdDIGO DE MAQUINA 

Um programa que dimensiona os saltos e faz a tradu?ao dos 
mnem6nicos Assembly: o que mais poderfamos desejar? 

APLICAQOES 

Precisao e velocidade sao fundamentals para a digita^ao e o 
processamento de textos. Domine o teclado. 

PROGRAMAgAO BASIC 

C6digos de controle podem substituir comandos 
em BASIC. Veja as vantagens. 
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